with Serveur; use Serveur;
with saisir_afficher; use saisir_afficher;
procedure demarrer_Serveur is
begin
   loop
      declare
         choix : constant string := saisir ("quitter [o|n]?");
      begin
         if choix'length /= 1 then null;
         else
            case choix (choix'first) is
               when 'o' | 'O' => quitter; exit;
               when others => null;
            end case;
         end if;
      end;
   end loop;
end;
